#!/usr/bin/perl -Ilib -w
use Geometry::Point;
my $p = Geometry::Point->new(x => 1, y => 2);
